home *** CD-ROM | disk | FTP | other *** search
/ Acorn User: China / Acorn User China CD-ROM (UK) (Disc B) / Acorn User China CD-ROM (UK) (Disc B).bin / AVOGADRO / GRAPHING / SURFACE / !Surface_!Run < prev    next >
Encoding:
Text File  |  1996-05-15  |  1.3 KB  |  40 lines
  1. | > !Surface.!Run
  2. |
  3. | Run file for Surface
  4. |
  5. | by Chris Johnson
  6. |
  7. RMEnsure UtilityModule 3.10 Error This application is only suitable for use with RISC OS 3.10 or later versions
  8. |
  9. If "<Surface$Running>" = "yes" Then Error Surface is already running
  10. |
  11. IconSprites <Obey$Dir>.!Sprites
  12. |
  13. | Find path to file
  14. Set Surface$Dir <Obey$Dir>
  15. |
  16. If "<Font$Prefix>"="" Then Error You need to double click on !Fonts before running this application
  17. |
  18. set temp$flag 1
  19. RMEnsure ABCLibrary 0 set temp$flag 0
  20. RMensure ABCLibrary 4.00 if "<temp$flag>" = "1" Then Error 0 Old ABCLib installed Else RMLoad <Obey$Dir>.ABCLib
  21. RMensure ABCLibrary 4.00 Error You need the ABClibrary ver 4.00 or later installed
  22. |
  23. set temp$flag 1
  24. RMEnsure CJWimpUtil 0 set temp$flag 0
  25. RMEnsure CJWimpUtil 0.17 if "<temp$flag>" = "1" Then Error 0 Old CJWimpUtil module installed Else RMLoad <Obey$Dir>.cjWimpUtil
  26. RMEnsure CJWimpUtil 0.17 Error You need the CJWimpUtil module installed
  27. |
  28. set temp$flag 1
  29. RMEnsure CJdrawUtil 0 set temp$flag 0
  30. RMEnsure CJdrawUtil 0.15 if "<temp$flag>" = "1" Then Error 0 Old CJdrawUtil installed Else RMLoad <Obey$Dir>.cjdrawUtil
  31. RMEnsure CJdrawUtil 0.15 Error You need the CJdrawUtil module installed
  32. unset temp$flag
  33. |
  34. |
  35. | Check memory allocation
  36. WimpSlot -min 224K -max 224K
  37. |
  38. | Now start program
  39. Run <Obey$Dir>.!RunImage %*0
  40.